MODULE Out;

PROCEDURE Char*(ch: CHAR);
(** Writes the character ch to the end of the output stream *)
BEGIN END Char;

PROCEDURE String(str: ARRAY OF CHAR);
(** Writes the null-terminated character sequence s to the
  end of the output stream (without 0X).
*)BEGIN  END String;

PROCEDURE Byte*(x : BYTE; n : INTEGER);
BEGIN END Byte;

PROCEDURE ShortInt*(x : SHORTINT; n : INTEGER);
BEGIN END ShortInt;

PROCEDURE Int*(x, n: INTEGER);
(** Writes the integer number x to the end of the output stream.
  If the textual representation of i requires m characters,
  x is right adjusted in a field Max(n,m) characters padded with
  blanks at the left end. A plus sign is not written.
*)
BEGIN END Int;

PROCEDURE LongInt*(x : LONGINT; n : INTEGER); BEGIN END LongInt;

PROCEDURE Real*(x: REAL; n: INTEGER); 
(** Writes the real number x to the end of the output stream.
  If the textual representation of x requires m characters,
  x is right adjusted in a field Max(n,m) characters padded with
  blanks at the left end. A plus sign of the mantissa is not
  written.
*) BEGIN END Real;

PROCEDURE LongReal*(x: LONGREAL; n: INTEGER);
(** Writes the long real number x to the end of the output stream.
  If the textual representation of x requires m characters,
  x is right adjusted in a field Max(n,m) characters padded with
  blanks at the left end. A plus sign of the mantissa is not
  written.
*) BEGIN END LongReal;


END Out.
